home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / INTELNET.CMD < prev    next >
Encoding:
Text File  |  1996-02-15  |  2.3 KB  |  118 lines
  1. #    LOGIN.CMD FOR INTELENET
  2. #
  3. # Support numbers
  4. display \l"inteleNET support:"\l\l
  5. display "575-8181        Salt Lake City, UT"\l
  6. display "497-0600        Odgen, UT"\l
  7. display "1-800-409-5724  Continental US"\l
  8. display "email: support@intele.net"\l\l\l
  9.  
  10. # Get phone number
  11. IF ![load $number]
  12.       display \l\l\l
  13.       display "SLC    578-0200"\l
  14.       display "Ogden  497-0200"\l
  15.       display "Provo  371-0300"\l
  16.       display "Logan  755-0300"\l\l
  17.       display "Enter '*70,' before number if you have call waiting"\l\l
  18.      
  19.   IF [query $number "Enter your dial up phone number "]
  20.  
  21.        save $number
  22.   ELSE
  23.     display \l\l"Cannot proceed without phone number!"\l\l
  24.     abort
  25.  
  26.   END
  27. END
  28.  
  29. # Get username
  30. IF ![load $username]
  31.  
  32.   IF [username "Enter your login username"]
  33.  
  34.     $username = lower ($username)
  35.     save $username
  36.  
  37.   END
  38.  
  39. END
  40.  
  41. # Get password
  42. IF ![load $password]
  43.  
  44.   IF [password "Enter your password"]
  45.     
  46.     save $password
  47.   END
  48. END
  49.  
  50. # Initialize variables
  51. %logins = 1
  52. %badlogin = 0
  53. %maxlog = 4
  54. %dials = 0
  55. %maxdial = 5
  56. %connect = 0
  57. %ppp = 0
  58.  
  59. # Reset Modem
  60. OUTPUT "ATZ"\r
  61. IF ![INPUT 10 OK\n]
  62.   display \l"Modem is not responding - check modem and com port"\l
  63.   display "Settings are under FILE / SETUP / SLIP PORT in this window"\l\l
  64.   abort
  65. END
  66.  
  67. # Dial Phone Number
  68. REPEAT
  69.   sleep 2
  70.   OUTPUT ATDT $number\r
  71.   %dials = %dials + 1
  72.   %connect = [INPUT 50 CONNECT]
  73. UNTIL %connect | %dials = %maxdial
  74.  
  75. IF !%connect
  76.   display \l"Connect timeout - try again later"\l
  77.   abort
  78. END
  79.  
  80. # For Cisco Box
  81.   if [INPUT 15 name:]
  82.     %badlogins = 1  
  83.     REPEAT
  84.       if %badlogins = 1
  85.         OUTPUT \u\r
  86.         %badlogins = 0
  87.       END
  88.       # Enter password
  89.       INPUT 15 word:
  90.       IF %logins > 2
  91.   
  92.         PASSWORD Enter your password:
  93.           save $password 
  94.       END
  95.       OUTPUT \p\r
  96.       # increment counter
  97.       %logins = %logins + 1 
  98.       IF [INPUT 5 CS1>]
  99.         %ppp = 1
  100.         %badlogins = 0
  101.       ELSE
  102.         %badlogins = 1
  103.       END
  104.     UNTIL %ppp | %logins = %maxlog
  105.     
  106.     IF !%ppp
  107.       display \l"Invalid login"\l
  108.       abort
  109.     END
  110.     #start PPP
  111.     OUTPUT "ppp"\r
  112.   END   
  113. IF ![address 30]
  114.   display \l\l"Did NOT recieve IP address - LOGIN FAILED"\l
  115.   abort
  116. END
  117.  
  118. #End of Script